my $host = $ARGV[0];
my $opt = "-p 80,81,8080,21,25,110,443,22";
$cmd =  sprintf ( "nmap $host $opt" );
system($cmd);
